home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
grapprog
/
splt252.zip
/
TESTS
/
T5-29.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-07-21
|
427b
|
13 lines
10 OPEN "T5-29.PLT" FOR OUTPUT AS #1
20 DIM A$(40),B$(40),C$(40)
30 A$="THIS LABEL IS RIGHT JUSTIFIED"
40 PRINT #1,"IN;SP1;SM*;PA6000,5500;"
50 PRINT #1,"CP";-LEN(A$);"0;LB";A$+CHR$(3)
60 B$="THIS LABEL IS CENTERED BELOW THE POINT"
70 PRINT #1,"PA4500,5000;"
80 PRINT #1,"CP";-LEN(B$)/2;"-.5;LB";B$+CHR$(3)
90 C$="VERTICALY CENTERED LABEL"
100 PRINT #1,"PA2750,4500;"
110 PRINT #1,"CP0,-.25;LB";C$+CHR$(3)
120 END